home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs19.d81
/
reushow.arc
/
REU SHOW
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
4KB
|
131 lines
10 REM *******************************
20 REM *** 1750/1764 REU SLIDESHOW ***
30 REM *** DESIGNED AND WRITTEN BY ***
40 REM *** - JAMES HASTINGS-TREW - ***
50 REM *** JULY 19,1988 ***
60 REM *** AT THE SUGGESTION OF ***
70 REM *** JUDITH M. BALDWIN ***
80 REM *** OF THE E.C.C.U.G. ***
90 REM *******************************
100 :
110 IF A=1THEN564
120 IF X=0THENX=1:GOSUB165:IFDX=18THENLOAD"FASTBOOT",8,1
130 IFX=1THENX=2:GOSUB140:IFDX=18THENSYS51200
135 GOTO440
140 FORA=49154TO49320:REM INSTALL ML
150 READI:POKEA,I
160 NEXT:DIMF$(52):RETURN
165 OPEN15,8,15,"U:":INPUT#15,A$,B$:DX=18:SX=1:CLOSE15
166 IFRIGHT$(B$,4)="1581"THENDX=40:SX=3
167 RETURN
170 DATA 173,17,208,41,239,9,32,141
180 DATA 17,208,173,22,208,41,223,9
190 DATA 16,141,22,208,173,24,208,41
200 DATA 240,9,8,141,24,208,76,43
210 DATA 192,173,17,208,41,239,141,17
220 DATA 208,162,127,160,64,134,252,132
230 DATA 251,162,4,160,0,134,254,132
240 DATA 253,162,131,160,39,32,127,192
250 DATA 162,131,160,40,134,252,132,251
260 DATA 162,216,160,0,134,254,132,253
270 DATA 162,135,160,15,32,127,192,173
280 DATA 16,135,141,33,208,162,96,160
290 DATA 0,134,252,132,251,162,32,160
300 DATA 0,134,254,132,253,162,127,160
310 DATA 63,32,127,192,173,17,208,9
320 DATA 16,141,17,208,96,142,1,192
330 DATA 140,0,192,160,0,177,251,145
340 DATA 253,165,252,205,1,192,208,8
350 DATA 165,251,205,0,192,208,1,96
360 DATA 230,251,208,2,230,252,230,253
370 DATA 208,227,230,254,76,135,192
380 SYS49154 :REM SHOW PIC
390 RETURN
400 POKE53265,PEEK(53265)AND223 :REM PUT SCREEN BACK TO NORMAL
410 POKE53272,(PEEK(53272)AND240)OR4
420 POKE53270,PEEK(53270)AND239
430 POKE53281,FC:POKE646,CC:RETURN
435 :
436 REM START OF PROGRAM
437 :
440 POKE53280,0:POKE53281,0
450 PRINT"[147][158] 1750/1764 [203]OALAPAINT [211]LIDE [211]HOW "
460 POKE57098,0:IFPEEK(57098)=63THENGOTO466:REM TEST FOR PRESENCE OF REU
465 PRINT"[155] [211]ORRY, THIS PROGRAM WILL ONLY WORK WITH AN [210][197][213][155] INSTALLED!":END
466 PT=26:IFPEEK(57088)AND16=16THENPT=52:MX=PT:REM TEST FOR REU SIZE
470 GOSUB1110
490 INPUT"[159] [197]NTER TIME (SEC.) FOR EACH PICTURE";TM:IFTM<0ORTM>59THEN490
500 TM=TM*60
505 PRINT"[155] [212]HERE IS ROOM FOR"PT"[155]PICTURES":PRINT" IN THE [210][197][213]."
510 PRINT:PRINT" [201]NSERT A DATA DISK IN DRIVE AND PRESS"
511 PRINT" [210][197][212][213][210][206] TO LOAD MORE PICTURES, OR "
512 PRINT" PRESS [211][208][193][195][197] TO START THE SHOW."
520 POKE198,0:WAIT198,1:A=PEEK(631):POKE198,0:IF(A<>13)AND(A<>32)THEN520
521 IFA=32 THEN 567
540 GOSUB 700
550 IFNN=0THENPRINT"[147]SORRY, NO KOALA PICTURES ON THIS DISK":GOTO510
560 PRINT" [206]OW LOADING PICTURES...":X=0
561 G$=LEFT$(F$(X),15)
563 A=1:LOADG$,8,1
564 PT=PT-1:GOSUB 870:X=X+1:IFX<NNTHEN561
565 IF PT>0THEN505
566 PRINT" [210][197][213][155] IS FULL - NOW STARTING THE SHOW"
567 PRINT" [153][208]RESS ANY KEY DURING SHOW TO STOP.":NN=MX-PT:IFNN>0THENGOTO570
568 PRINT" [150][206]O PICTURES LOADED INTO [210][197][213][150]![146]":END
570 GS=0
580 IFGS=NN THEN 570
600 FC=PEEK(53281):CC=PEEK(646)
610 GOSUB 990
640 GOSUB380:TI$="000000"
650 IFTI<TMTHEN650
660 GS=GS+1:GETA$:IFA$=""THEN580
670 GOSUB400
680 PRINT"[147][196]ONE!":POKE53281,0
690 END
700 REM DIRECTORY READ
710 NN=0:PRINT"[147][158]LIST OF ALL KOALA PICTURES ON THIS DISK"
720 OPEN15,8,15:OPEN5,8,5,"#":T=DX:S=SX:NN=0:Z$=CHR$(0)
730 PRINT#15,"U1:"5;0;T;S:PRINT#15,"B-P:"5;0:GET#5,T$,S$
740 T=ASC(T$+Z$):S=ASC(S$+Z$):BP=5:FL=1
750 PRINT#15,"B-P:"5;BP:GET#5,A$:IFA$="[129]"THENGOSUB800
760 BP=BP+32:FL=FL+1:IFFL<>9THEN750
770 IFT=DXTHEN730
780 CLOSE5:CLOSE15:T$="":S$="":A$="":N=FRE(0)
785 IF NN>PT THEN NN=PT
790 RETURN
800 REM LISTER
810 PRINT"[193][146]";
820 F$(NN)="":FORX=1TO15
830 F$(NN)=F$(NN)+A$:GET#5,A$:PRINTA$;
840 NEXT
850 N=FRE(0):NN=NN+1:PRINT
860 RETURN
870 REM LOAD PIC INTO REU
880 AD=((MX-1)-PT)*10010:AB=INT(AD/65536):AD=AD-(65536*AB):AH=INT(AD/256)
890 AL=AD-(AH*256)
900 POKE57096,39:REM PIC LEN HI-BYTE
910 POKE57095,17:REM PIC LEN LO-BYTE
920 POKE57094,AB:REM REU BANK
930 POKE57093,AH:REM REU ADDR HI-BYTE
940 POKE57092,AL:REM REU ADDR LO-BYTE
950 POKE57091,96:REM PIC ADDR HI-BYTE
960 POKE57090,00:REM PIC ADDR LO-BYTE
970 POKE57089,144:REM DO IT!
980 RETURN
990 REM LOAD PIC FROM REU
1000 AD=GS*10010:AB=INT(AD/65536):AD=AD-(65536*AB):AH=INT(AD/256)
1010 AL=AD-(AH*256)
1020 POKE57096,39:REM PIC LEN HI-BYTE
1030 POKE57095,17:REM PIC LEN LO-BYTE
1040 POKE57094,AB:REM REU BANK
1050 POKE57093,AH:REM REU ADDR HI-BYTE
1060 POKE57092,AL:REM REU ADDR LO-BYTE
1070 POKE57091,96:REM PIC ADDR HI-BYTE
1080 POKE57090,00:REM PIC ADDR LO-BYTE
1090 POKE57089,145:REM DO IT!
1100 RETURN
1110 REM INITIALIZE REU
1120 POKE 57098,0:REM ADDR CONTROL
1130 POKE 57097,128:REM INTERRUPTS
1140 RETURN